Top 10k strings from Outlet - Issue 78 (1994)(Chezron Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TAP] (TOSEC-v2007-01-01) /
Back to the directory listing
71 23637+256*
15 60<00*00002
15 23638-148":
13 PLAY THE TAPE
11 AUTOCHARS PLUS !
10 LEICESTER LE4 3FF
10 ISSUED IN OUTLET!
10 CHEZRON SOFTWARE
10 ALL ENQUIRIES TO:
10 34, SALTERSGATE
10 NOT AVAILABLE ON TAPE VERSION!
9 DRIVE, BIRSTALL
7 COMPRESSOR
6 ;"TEXTLOADER"
5 23638-5814":
5 23638-39":
5 23638-0184":
5 128 CHARS
4 udgs
4 italiciser
4 X PRINTER ","L
4 PRINT III ","D
4 PG=PG+(K$="F"
4 LP);(" LAST PAGE!"
4 I;("NO SUCH PAGE"
4 I;"Press 2 digits or use keys below"
4 EMPSTON E ","Z
4 E$;"@";E$;"l";
4 By Chris Pile '90
4 23638-0515":
4 23638-0185":
4 23638-0097":
4 *(r2-b1)):
4 (AT/O8)*O8:
4 "9")-(K$="B"
4 "64803"+n,pg+
4 "23";E$;"Q7"
4 "21",O,,#O;
4 "2")+("0"+
4 "1750"+(P$="Z"):
4 "1700"+(P$="Z"):
4 "*(pg>LP):
4 AUTOCHARS PLUS !
4
3 ut\ d
3 d\ l
3 \ l
3 TEXTLOADER8
3 Select font (9881-9888)
3 ROAD, BIRSTALL,
3 O,I,O8,I0,NIF,PR,L,D,G,P$,E$:
3 ISSUED IN OUTLET
3 ISCIPLE ","B
3 I;"BAUD RATE REQUIRED? ";BR:
3 I;" Select by Initial letter.
3 I0;("--------------------------------"
3 E$;"@";E$;"O";E$;"l";
3 CHEZRON SOFTWARE\34, Sal
3 CHEZRON SOFTWARE
3 ALL ENQUIRIES TO
3 ;"FILENAME? (Q
3 605 LOUGHBOROUGH
3 23638-624":
3 23638-0154":
3 *_\s#r*_\##<
3 )=(PG+I+I)/
3 ((PG+I+I)/
3 "\";"key ";
3 "TEXTLOADER"
3 "INTERFACE 1","OPUS I'FACE","K
3 "65368","",
3 "23692",O:
3 SORRY!-NO TABLOID ON ";("OUTBOARD"
3 O U T B O A R D February,1994
3 LEICESTER
3 LE4 4NJ
3 ENGLAND
3
2 y,x;i$;" ";
2 y+i,x;"_":
2 t(p)=v(c,p):
2 t(p)=t(p)-
2 r-\
2 r); SINGLESTEP (
2 r!);JACKSOFT(m/
2 ps, 25-29 G
2 deliner
2 b1;"_ _ _ _ _ _ _";
2 QUIT)"'N$:
2 O,O; "
2 NO VAR
2 Initialise PFN routines
2 FRACTIONS 2
2 EMPSTON E
2 CATLOADER
2 <~ffffff~<
2 ;"SUFFRAGE"
2 ;"SUFFINFO"
2 ;"QUIKLIST.2"
2 ;"LASTPROG"
2 ;"GRAPHIX"
2 ;"FRACTS2"
2 ;"DLANDEMO"
2 ;"CRUNCHER"
2 ;"COUNTER"
2 ;"CONTENTS"
2 ;"AUTOLOAD"
2 ; "WHICH DRIVE? (T=TAPE) ";
2 23639+256*
2 23638-0668":
2 23638-0136":
2 23638-0126":
2 23638-0080":
2 23638-0051":
2 23613+256*
2 128
2 *E\"B\:G\<2D\
2 );TRANSBACK(O
2 );OUTPRINT (p
2 "SUFFRAGE"
2 "SUFFINFO"
2 "QUIKLIST.2"
2 "DLANDEMO"
2 "CRUNCHER"
2 "CONTENTS"
2 "BAUD RATE? ";BD:
2 ";"Party List";
2 "9880"+font:
2 "4";p$(p);
2 "4";"Constituency ";c$;" second Preference:":
2 "23560",O:
2 hl\ l
2 hl\ in
2 e,a\ l
2 e,(hl)\ in
2 d,0\ ad
2 d,(hl)\ e
1 ~~``||````
1 ~~``xx``~~
1 ~p:`ZV8P8989
1 ~>b^D\PPp~
1 ~::::::@@@
1 ~2J\#~2I\!%
1 }t)\ ( 33 = "!"
1 |~gcccccg~|
1 |~ff~|````
1 |~ff|~ff~|
1 |~ff|~ffff
1 |~ffffff~|
1 |by G. Rowland
1 |bbb|bbbbb|
1 |USING "SUFFRAGE?"
1 |The Simulation provides you with a scaled down model of the UK. The size of each constitueny is 2% of the UK average (60,000). There are just three political parties (RED, BLUE and YELLOW) and 12 seats (just under 2% of the UK's 650) to be won. Data on each of the 12 seats can be called up by pressing keys "A" to "L".
1 |SUFFRAGE?
1 |MENU OPTIONS:
1 |FFFF|bbbbb
1 |FFFFFFFFF|
1 |8888888?8888888
1 |1. VOTING PREFERENCE - Initially party support is set to 33% for each party. This option is used to change Voting preference. This also randomizes the distribution of the votes across the constituencies.
1 {)\\'cc' i
1 zwra_^]\NIH?;975
1 zZf<p^ZVLVZv8((((.2
1 ys\CHAN : DEFB 0 - 15
1 y.\\E : Ed
1 y.\'nnn' }
1 y,x;t(p);" ";
1 y,x;i$;"_ ";
1 y,x;"%choose ";p$(d);
1 y, Tel: 0508 46789
1 y, KT9 1JX
1 y, KT9 1JX
1 y+H)\\# :TEMPO CONTROL(
1 y)\\\ ----------\\\ PRESS N TO LOAD THE DEMO....^
1 y)\DATA[6] : DEFB <ASCII
1 y); BASIC p
1 y):`3.50. S
1 y$\ d
1 x\ ^ in
1 x\ BN6 8BU\\ Tel. 0273 844530\\Fol
1 x,egLOAD*"M";1;"FILE".Sen
1 x, BN13 2DS
1 x, 1G6 2NWP
1 ws...\\\(11) EXECUTE -
1 wn\ d
1 without a '
1 what else....1
1 w.\\ Y
1 w.\\ B
1 w, all\PC OUTLET o
1 w!\ 241/2 SP\ ^T
1 w!\ - B
1 vi+": Question "+
1 v=v+v(c+s,p)/
1 v=v*((t(p)-q)/t(p))
1 v-\ents"OVER" f
1 v(d,p)=v(d,p)+t(p):
1 v(c,p)=v(c,p)-t(p):
1 v(c,p)=v(c,p)+n:
1 v(c,p)=v(c,p)+d:
1 v(c,p)=t(p):
1 v(c,d(p))=n:
1 ut\\ ... etc,
1 ut\ ... etc;
1 ut\ 60 Q
1 utL\ ... etc; en
1 ut2\ ... etc\ (i
1 ut1\ d
1 ut0\ d
1 ut.\SAE +
1 ut..........25 27\ Mal
1 ut. F.G.MILES ^F
1 ur.n=0-7\\Cnn:COLOUR
1 ur(s)\\P :PAUSE
1 und\\ }l
1 und.\\Subs
1 ught! ^Cont
1 u\SELECT,
1 ttttttt@@@
1 ts\\ l
1 this tape which would not fit onSide A..."
1 thirds & sixths
1 the BASICwith...
1 th\SINCLAIR FREAKEREN i
1 th\OPENTYPE
1 th\MASTERFILE! Su
1 th\ d
1 th, Welwyn, Herts, AL6 9UF\Tel:0438 813406. 29.8.93\\I'
1 tch\ ^0a11 d
1 t\\NAME : DEFS -10 chrs- (o
1 t\\CHAN :DEFB<OUTPUT CHANNEL No>\ (
1 t\DLAN onl
1 t\DATA[2] : DEFB 195or255(195=NOT)\DATA[3-9]:
1 t\ ^\\NAME }
1 t\ l
1 t\ <
1 tPC,+D,+3,
1 t: }rry\ ;
1 t.\\ FIVE-BYTE TABLES\\T
1 t-\ing.\\PIX
1 t)`8(PC 3.5/5.25
1 t(s(c))=t(s(c))+
1 t(p)=v(c,p)+v(c+s,p):
1 t(p)=t(p)-q:
1 t(p)=t(p)-n
1 t(p)=t(p)-d:
1 t(p)=t(p)- (
1 t(p)=t(p)+v(c,p)
1 t(p)=t(p)+
1 t(d)=t(d)+v
1 t(d(p))> t(d(p-
1 t(d(p))=t(d(p))-n:
1 st: `1.50
1 st.\\ Y
1 ss\\R :RETURN f
1 ss\SPACE af
1 ss\32000 a
1 ss\ l
1 ss\ in
1 ss\
1 ss>\ DEFW <st
1 ss>= (PROG)\\ <
1 ss...\\ SINCLAIR FREAKEREN\ Att: L
1 ss...\ -----\A sp
1 ss. ^ Bil
1 ss-LSB>\ [5] : DEFB FF <" " " " MSB>\ [6] : DEFB FF\ [7] : DEFB FF\ [8] : DEFB FF o
1 sh(ON),S=S
1 scrolll...
1 screenful of your listing, starting from your chosen line, but
1 score=score+(l=ans):
1 score=score*(
1 sc!\\ Ro
1 s\\A....\\O
1 s\ Alc
1 s\ --------------\I
1 s\
1 s:`25.\+2(g
1 s:\ }l
1 s.\\ B
1 s.\.^ ALCHEMIST RESEARCH NEWS\Alc
1 s.\ ^SINC
1 s.\ ^CC 72, 73, 74: LOAD,VERIFY,MERGE\--------------------------------\Al
1 s...\\NAME :DEFB "/" +(128 i
1 s...........31 -\ Ke
1 s,\e.g., wh
1 s,\ cc=s
1 s).\\DRIVE1 : DEFB 1,2 o
1 s(s)=d(p):
1 s(CHR32)\
1 s! Rin
1 ry\'ARROW z;R' a
1 rySAM Supp
1 running a 1*Bit sample
1 rt-up.\\F : Fil
1 rst\ by
1 rs\\ CHEZRON SOFTWARE\ 34 Sal
1 rs\\ F. Ri
1 rs\- 14 inc
1 rs\ (9) 128 SNAP ]
1 rs>=(VARS)-(PROG)\\ ...a
1 rs.........45 - ^ PLEASE SEND YOUR TEXTFILE!\Tex
1 rs.)...\\\T1: 1x1 att
1 rs-LSB>\ [7] : DEFB < " " " " "-MSB>\ [8] : DEFB FF o
1 rs,\etc. an
1 rs, SPACE, EXCLAM-\ATION MARK, QUOTATION MARK and\HASH
1 rms:-\\(1)Simp
1 rm)\TYPE :
1 rk\ 10 Fel
1 rk.\\ Kin
1 rk...........03 04\ Joh
1 rf, Ger
1 reboot OUTLET...
1 rds. Word-p
1 rds,\\ Joh
1 r\\ POKE 63293,4 : POKE 23294,248\\a
1 r\OUTLETTERS:
1 r\OUTBOARD
1 r\DRIVECHAT, e
1 r\D, E, F an
1 r\BASIC. No
1 r\(11) EXECUTE ]
1 r\'nnn'cyc
1 r\ -------- --------\ 221/2 IY\ 223/4 IX\ 225/6 DE'\ 227/8 BC'\ 229/30 HL'\ 231/2 AF'\ 233/4 DE\ 235/6 BC\ 237/8 HL\ 239/40 Don'
1 r\ Ro
1 r\ ---------------\
1 r\ l
1 r\ w
1 r\
1 rBASIC:`3
1 r? ^ ANDY MOIR, 27 COBHAM CLOSE,\YAPTON,NR. ARUNDEL, WEST SUSSEX.\ TEL: 0243 552753 DEC.93\\WANTED: So
1 r>\\ (1) BASIC\\DATA[1] : DEFB #0\ [2] : DEFB FF\ [3] : DEFB FF\ [4] : DEFB FF\ [5] : DEFB FF\ [6] : DEFB FF\ [7] : DEFB FF\\\ [8] : DEFB FF o
1 r:`2.50.Ma
1 r:\ 12\ 34\ ...o
1 r/ink.nn=0-7, 0-7\\E
1 r.\ F a
1 r.\ - B
1 r...\\ 0-O-Q, 2-5-Z-S, 3-8, 6-9-g,\ E-F-L, M-W, N-Z, P-R, U-V,\ [-] (-) f-`, b-d-p-q-h-n-r,\ c-e, m-w, u-v, C-c, J-j, K-k,\ M-m, O-o, P-p, S-s, U-u, V-v,\ W-w, X-x, Y-y, Z-
1 r... OCT, 93\T
1 r. ^\= : P
1 r. REMARKS
1 r-\
1 r-0a22h;23 TAB\\\ - F
1 r-0a21h;22 AT\ d
1 r-0a20h;21 OVER\ d
1 r-0a1fh;20 INV\ d
1 r-0a1eh;19 BRIGHT\ d
1 r-0a1dh;18 FLASH\ d
1 r-0a1ch;17 PAPER\ d
1 r-0a1bh;16 INK\ d
1 r-0a18h;13 en
1 r,\ LE4 3FF\ ^CATLOADER FOR PC LUNTER EMULATOR\FOR PSEUDO-MICRODRIVE OPERATION!\\T
1 r,Worcs. DY11 5DL
1 r,LE4 3FF\ ^CATLOADER V.2!: T
1 r, WORCS DY11 5DL
1 r, PLEASE
1 r, LE4 3FF\\\\ ^CLIPPER 1. T
1 r, LE4 3FF\.^
1 r, LE4 3FF\ ^CLIPPER 2 TO CLIPPER 8 a
1 r, GL4 0LE\
1 r)\\UDG T i
1 r)\\DEVICE :DEFB 255, 33 o
1 r);\UNITRANS+(
1 r);UNITRANS+(
1 r). ^\\ UNIVERSAL SPECTRUM ERROR TRAP\ -----------------------------\\T
1 r(s).\\DLAN
1 r(d)=r(d)+t(p):
1 r(c)=r(c)-t(p):
1 q+(" - Score "+
1 pxxllffcca
1 pxx00pppXX00
1 program then use..
1 press any other key to returnto OUTLET.
1 ppxxllffcca
1 pp00p0ppx0`0
1 poke+3
1 p88<<888?888888p
1 p);COL80\(p
1 p);COL80(p
1 original 48k
1 or...\ {bbccd
1 or...\
1 or, if\ POKEd, un
1 or more information on the PFN print system, write to: G. Rowland, PO Box 49, DAGENHAM RM9 5NY
1 opt=x*x*vi:
1 ons\- e.g.,
1 ons\ 34 B
1 ons. AlchNew
1 ons, if\BRIGHT i
1 ons) and\CYCL t
1 on\etc., RTCLIP
1 on\ALL SPECTRUMS! -
1 on\3.01. I al
1 on0229 466807
1 on0224 704782
1 on).\ CHEZRON SOFTWARE\ 34, Sal
1 of\OUTLET a
1 of\CC Ho
1 ofWorld: al
1 of numbers so far crunched.
1 o:`4.50. P
1 nv.DOC"CODE 32000,<end>\ ^ CONVERTING TO OPENTYPE\\\1: L
1 nts\'HELLO' th
1 nts.\ ^S: Sc
1 ntly\ 4 is
1 nt\T4: 1x1 (OCR)
1 nt\OUTLETTERS a
1 nt\OUTLET). T
1 nt\COMMAND
1 nt. FULL SET\T8: 2x1
1 nt, POKE 63293,222 and\POKE 63294,21 af
1 ns\ j
1 ns:\INV VIDEO, TAB an
1 ns,\e.g.,\ 500 REM B4;C07;T3\ 550 REM E5;Fz;Adf ^W : De
1 nks, Ken.\\An
1 ngth> = 255\\ (8) SPECIAL -
1 ngth-LSB>\\DATA[3] :DEFB < " " MSB>\\DATA[4] :DEFB <ADDRESS- LSB>\\DATA[5] :DEFB < " -MSB>\\ ^\Ad
1 ngth-LSB>\ [3] : DEFB FF < " " MSB>\ [4] : DEFB FF o
1 ngth).\\\\T
1 ngs)\ [1] : DEFB #1 (
1 ng\PRINT AT t
1 ng\CCs.\\ Mal
1 ng\'*a; ('s
1 ng\ "/",
1 ng:`18.50.
1 ng:\\ 10 OPEN#4;d1;"
1 ng.\ ^\\ s.
1 ng.\ ^B: Se
1 ng...\\RANDOMIZE ADDRESS : POKE 23606,\PEEK 23670:POKE 23607,PEEK 23671\\Y
1 ng...\\1. I
1 ng... ^ DLAN COMMAND SUMMARY\\Axx:ATTRIBUTE.xx=B(
1 ng. Cost?
1 ng. - BC]\ ^T
1 ng'..\ ^\\ ;
1 nds.\GRAPHIX }
1 nd\(Pays-Bas)
1 nd\"RAS PD" Col
1 nd:`5.75. L
1 nd.\\P : P
1 nd.......06 09\ L
1 nd,24 Pars
1 nd, LONDON\\Wit
1 nd, DLAN as
1 nd(s) BEFORE\a
1 nd's\PFN PRINT (OUTLET 59)
1 nd's\MUSIC WRITER. Wh
1 n\SELECT a
1 n\100K.\\I
1 n\ Bryg
1 n\ add
1 n\ i
1 n\
1 n\
1 n\
1 nWTLJG=41..
1 n> t(d(p))
1 n=n+v(c,p):
1 n.\\ Ack
1 n......29 -\ And
1 n.......11 14\ Joh
1 n. DLAN }n
1 n, WILTSHIRE.\ SN2 6SY.\\D
1 n, SA8 4TY\ Tel: 0269 826260\\T
1 n, NW3 4RG (071 586 4652)
1 n, LEEDS\\\\D
1 n, DENMARK\\D
1 n ^ And
1 mus,mv,mus,mv-
1 ms\ --------------------------\\ INTRODUCTION\ b
1 mpts.\NAME2 : DEFB --10-- ;<
1 mp\
1 month's issue but there are a
1 mns\\X :EXIT
1 mns>\ (255 =
1 mns);OUTSTART(Di
1 mns);OUTSTART(
1 mn\10, 15
1 mn,\ dd=
1 mixed test
1 mbly(Dr.Lo
1 m\OUTLET 45
1 m\MASTERFILE, i
1 m\CHEZRON SOFTWARE 34, Sal
1 m:\\ 10 FOR x=32063 TO <end> STEP 64\ 20 POKE x,0\ 30 NEXT x\ 40 POKE <end>,0\ 50 STOP\\Subs
1 m:\\ For
1 m.\\SELECT CYCL an
1 m.\ B
1 m, RM9 5NX
1 m, Kent,ME13 8YD.
1 m)\\'bb' i
1 m!\ ^\< : P
1 ly\(i.e.,
1 ly,\\ Ke
1 ly,\\ J.R.C
1 lts.\ ^\Re
1 ls\ ^ CC 80 : CLEAR\ ---------------\\DRIVE : DEFB 1,2,"*"\\\\ CC 84 : IN\ ------------\\DRIVE : DEFB 1,2,"*"\NAME : DEFS ---10--- o
1 lp.\\3. Don'
1 lp.\\ Y
1 lly\SELECT
1 lly...\\ <add
1 lls,\etc.,
1 ll.\\NOTE t
1 ld\T9: 3x1 B
1 ld\T6: 2x1 San
1 l\
1 lSlRtAoesStdAiBzsreDA$CsDAsBpIibyxxIPdOMlRTCdPSmqpvdDA$B$AlFrBaPnIansEDtES((
1 l: 0532 683618)
1 l: 0452-412572\ ^Al
1 l.\ ^DLAN
1 l,\ {=s
1 l,LD IX,(#5C51)
1 l+B) : Sub
1 l(p));"?";
1 l(p));" voters to move?";
1 l(p));" party (";c(c,p,
1 l(d(p)));" party"
1 l(d(p)));" party ";
1 is...\\ STACK\ ---------------\ add
1 is better as it is running a
1 int\ d
1 int! ^\\ BEGINNERS' BASIC\ ----------------\\Ar
1 ing\41K, w
1 in. ^DLAN i
1 in!\ ^Sorr
1 in this OUTLET for more details.";
1 if\ DEVICE = "D"\LOAD P <
1 i< p(d(p))
1 i(p);p$(p);
1 i(d(p));p$(d(p),
1 i$=" "
1 hl\ l
1 hl\ j
1 hl,\ ;entr
1 halves & quarters
1 grid.Features include scrolling,rotation, expansion, mirroring
1 graphics
1 goback=b1:
1 goback=b0:
1 goback,centre,mu,b0,b1,iv,x,ski,scoring,retry,reset,setflag,get,h$,g$
1 gns...\\ : ; < = > ? @\\ ...a
1 ght\ d
1 ght\ d
1 ght-0a14h;9
1 ght, D= Dul
1 ght),D(ull)\ F(
1 g\
1 g..\\ STARTING STATION CALLED\DATE TIME CALLED BY\\HIS SIG MY SIG- FREQ EMISSION\NAL RST NAL RST (MHz) TYPE\\POWER ENDING REMARKS OSLs\INPUT TIME SENT RCVD\\T
1 g'r?\ f
1 g'd):SAM:`12.C
1 ft\ d
1 ft\ DALTON-IN-FURNESS\ Cumb
1 ft+H) : GO SUB\\ARROW
1 for more Info.
1 flag=(score<
1 flag)+"Test "+
1 fifths & tenths
1 ffvv~~nnff
1 ffff~~ffff
1 ffffx~ffff
1 ffffffff~<
1 ff/+D only)o
1 f\TB: 3x2 st
1 f. FULL SET\T7: 2x1 E
1 f$=("Practising "
1 etc.\\\Eac
1 est-0a1ah;15 g
1 est-0a19h;14 E
1 est-0a17h;12
1 est-0a16h;11 up\ d
1 est-0a15h;10
1 est-0a12h;7 u
1 ess.\\ B
1 es\T5: 1x1 c
1 es\1,2,3 an
1 es.\ Mal
1 es...........40 43\ B
1 es,STAR LC10
1 es, LIVERPOOL\\\\D
1 es!\ Y
1 entry\ ... etc\I
1 endly,\\ L
1 en\W00240032. Y
1 en.\ ^\ THE COMMAND STRUCTURE\\\DLAN
1 en$\ d
1 elds\DATA[2..5]
1 eld\S13 7LN
1 eld\ S13 7LN\\ Te
1 eld\
1 eld,\ S
1 ed\ [4] :DEFB<
1 e\CHAN1 : DEFB 0 - 15, 255; if\ 255, t
1 e:\\SPECFILE i
1 e.g.,\LOAD "FILENAME"CODE 65368 or...\LOAD "FILENAME"CODE USR "A" el
1 e, 174Mont
1 ds, LS17 8QA. (
1 ds, LS17 8QA \(
1 drivechatdrivechatdrivechatdrivecha
1 drivechatdrivechatdri
1 d\\ (7) SCREEN$ (No
1 d\West, Bir
1 d\DLAN inst
1 d\DATA[1]: DEFB <
1 d\ (5) 48 SNAP ] ^\ (4) CODE & (7) SCREEN$\\\DATA [1] : DEFB #3\ [2] : DEFB FF o
1 d\
1 d.\\ARROW (Sym
1 d.\[NAME1 : DEFS -10-]\[DRIVE2 : DEFB 1,2,"*"]\CHAN2 : DEFB 0-15 o
1 d.1x1, 2x2\
1 d...\\\ ^ CC 67 : CAT\ -------------\DRIVE : DEFB 1,2 o
1 d............23 -\ F
1 d.) ^X : eXi
1 d. ^\\OUTLET EXTRA 1 -
1 d. ^\\DATA
1 d. ^* (sym
1 d, CAMBRIDGE\\\ CAMPBELL'S MASTERFILE\ MERGED WIT H TASWORD +2\\OUTLET N
1 d(p)=d(p)+
1 d ^ F
1 cts,\ZX Com
1 ctly.\\Wit
1 ct.\\C : Se
1 ct...\\ BLUE ALPHA ELECTRONICS,\ A
1 couple more items on Side B of
1 command in some situations, and with this in
1 code and stop the program. You
1 cks,\ Wes
1 ck\
1 ck:`50. +D +d
1 chatdrivechat
1 ch\DUBPIN i
1 ch, WR9 7DG
1 ccss{koggcc
1 can then try QUICKLIST 2.
1 c.48K:`18.50. 48K P
1 c. ^\\ ARTICLES ON +D/DISCIPLE\ -----------------------\\Mi
1 c)\\\ KEYPRESSES\ ----------\\"X":EXIT TO BASIC an
1 by\\ Ch
1 by MALCOLM GOODMAN"
1 bobadventure.2
1 be completely invisible in use."
1 bdhppxhldfb
1 bbbb~bbbbbb
1 bbbbbbbbbb<
1 b1;"_ _ _=1";
1 b1;"_ _ _ _ _ _ _ _ _ _";
1 b1;"_ _ _ _ _=1";
1 b1;"_ _ _ _ _ _ _ _ _";
1 b1;"_ _ _ _ _ _ _ _ 1";
1 b1;"_ _ _ _ _ _ _ 1";
1 b1;"_ _ _ _ _ 1";
1 b1;"_ _ _ 1";
1 at\`1.50 +
1 as\WA05061015; an
1 as\"*","D"
1 ary, 1994 Pa
1 ary, 1993(?).I
1 ars!\ ^RANDOMIZE USR 23354
1 ard.\\6. Ent
1 arch\ 62 Tit
1 ar.LOWER CASE\TA: 3x2 g
1 any\ l
1 and...\ REM R\a
1 and the amount will be twice the total
1 and even animation by cycling."
1 an\\ OUTLET i
1 an/Ron,\\I of
1 ams\\ CC 79 : CLOSE\ ----------------\DRIVE : DEFB 1,2,"*"\CHAN : DEFB 0-15 o
1 ams, and\ERASE..TO..al
1 allows up to 8 character sets inmemory at once. 4 characters canbe edited at once in a 2 by 2
1 all\ c
1 ad\BASIC, SCREEN$ o
1 acflxpxlfca
1 abbccdd', t
1 a\\ (TOTAL 24 BYTES i
1 a=0 -> c-1\ ;d
1 a...\ REM nnnARROWa;R;*a\
1 a, LA15 8DD\\Ho
1 a$="tenths":
1 a$="sixths":
1 a$="quarters":
1 a$="ninths":
1 a$="eighths":
1 `h```88 Xx`X``x`X`x`
1 ```cflxxlfc
1 ````````~~
1 ``````````>
1 ``Xp`8 x xX```pxX`0`
1 `` ``` ``
1 `6.99 BUT\ONLY `3.50 TO OUTLET READERS!\\A
1 `6.00,S.A.E.,O
1 `35.\48K+I'Fa
1 `2.50OCP e
1 `1.50,SAEan
1 \\
1 \[NAME : DEFS -10- ]
1 \T2: 2x2 c
1 \MULTIFACE ow
1 \L41 4BY, Eng
1 \"NAME.c). ^U
1 \ Rhyd-y-f
1 \ }l
1 \ ad
1 \ ---------------\ AF
1 \ i
1 \ W
1 \ S
1 \ bb=
1 \ STARTS
1 \ Va
1 \
1 [ in OUTLET #68 ]
1 ZX81 ULA? Well, I k
1 You might like to try the program with the results of previous Elections in Britain. You can enter the percentage of vote from statistics available at your local library, but you'll need to re-interpret allocation of seats as follows: add seats of three parties and divide by 100 then by .12 to get percentage of one seat on model; divide number of seats each party has by this value and round-up to get the number of seats they would have gained on the model. This means that any party with (sum of seats/100/.12) seats may not gain a seat using the plurality system (depending on population distribution in the model).
1 You may want to check on the validity of the program or write a more detailed simulation. I used the local reference library for my source of information, the references used were Encyclopedia Brittanica, Economist World Atlas of Elections and World Encyclopedia of Political Systems & Parties (Edited by George E. Delury Published by Facts on File). A detailed "comment per line" listing of "Suffrage?" is also available for `1 (stamps, IRCs or PO) from G. Rowland, PO Box 49, DAGENHAM RM9 5NY
1 You can refuel at the
1 Y`]`N`N`D`
1 XTRACT & INSTALL THE ROUTINE
1 XPOS=0 YPOS=0
1 X$+":"+N$:
1 X `888``h``X
1 Wr\\\ ...w
1 Will run in either 128k or 48k:-In 128k mode the sound quality
1 Way,\ Has
1 WZ21010220
1 WZ00240032_MAX SIZE SCREEN
1 WZ select full window for
1 WY13010227
1 WX07010227
1 WT02200228_Reduced Window for text
1 WT select text window
1 WS01220130 window for colour changes
1 WL15052306
1 WK15051606
1 WJ15050906
1 WITHOUT ERASING\ANY TEXT THAT IS PRESENT. ^B
1 WI15050206
1 WH09042306
1 WG09041606
1 WF09040906
1 WE09040206
1 WD02042306
1 WC02041606
1 WB02040906
1 WANTED:128K
1 WANTED: YOUR SPECTRUM Is
1 WA02040206_first font box
1 W002400323#
1 Votes graph
1 Voters vote for a list of candidates rather than individuals. The Party with the most votes is awarded a seat then their votes are divided by two. The votes for each Party list is then compared again and the Party with the most votes is awarded a seat. The divisor for each party is incremented after that party has been awarded a seat. This continues untill all the seats have been awarded. Seats are alotted to candidates in the order that they appear on the Party's list.
1 Uses list of candidates again, but the initial seats are won by parties that meet a quota. The number of times their vote can be divided by the quota is the number of seats they are awarded. Seats not won by quota are awarded to parties in the order of the largest remainder first, smallest remainder last.
1 Up' (Su)\Sc
1 UUUUUUUU53f
1 USE ~QUICKLIST 2~
1 UNICHAT .#
1 UN SAMPLER
1 Total share
1 To turn the routine on, call thecode at its load address."
1 This simulation is only a simple model, nonetheless the correct equations have been used for calculating the seats won in each voting system. Of course a simulation with this coarseness of resolution does give an over simplified view. With just 12 seats, each seat represents 8% of the electorate, but in the UK each seat represents around .16% of the electorate.
1 This PD character set designer
1 Thirds & Ninths
1 These "second choice" values are also used by the MAJORITY model, but here the second choice votes are taken from the weakest candidate when no candidate can obtain a majority (more than 50% of the vote) in their constituency. The Majority model, like the Plurality model, uses 12 single member constituencies.
1 There are no ADDENDERS in this
1 There are many variations of PR and only the variants shown here are used in the simulation. As all these PR systems require multi-seat districts, there is the small problem of how many seats are available. Either Parliament would need an extension, or constituencies combined to form larger districts along the lines of those for Euro MPs. The Party List systems here treat all constituencies as one large multi-seat district with a list of 12 candidates from each of the three parties competing for 12 seats.
1 Then whenever you use the
1 The relocatable code is at 50000and is 132 bytes long."
1 The outcome of the last election has prompted more talk about proportional representation, but what is PR? "Suffrage?" is a simulation that allows you to compare the general principles of different voting systems and judge which is the most democratic and which wastes the right to vote.
1 The code may be installed in twoways:-
1 Teacher Info
1 Take poll from sample of 100 voters from each constituency
1 TTL RGB + B
1 THE SCREEN
1 THE PIT !!
1 TASCON +2 f
1 TASCALC.\\I
1 TABLE-CLASS..
1 TABLCLAS.#P
1 TA;C06;ABS;W00220032;E5;C72;W01030229;=D L A N
1 T8;W04021011;C62;ABF;=
1 T6;W07140229;C71;ABS;=This demo and the DLAN code, a complete display language from Campbell Systems,are now in the public domain & may be freely copied.
1 T3;=PRESS X TO EXIT AT ANY TIME OR F TO FREEZE THE CURRENT SCREEN.;=;=
1 T1_textfont1
1 Subtract upto a quarter of undecideds
1 Sr\ (up,
1 Sort party in vote order
1 Sorry!You are now in 48K mode asthis program won't run in 128K.
1 Some of the voting systems are:
1 Single Transferable Vote
1 See the program ""SUFFRAGE-INFO""
1 Seats graph
1 SYMBOL Z=QUIT
1 SYMBOL AND Z
1 SUFFRAGEinfo.
1 SUFFRAGE? by G. Rowland (PUBLIC DOMAIN)
1 SUFFRAGE.....
1 SUFFRAGE
1 SUFFINFO
1 SUFF.D
1 STARTING TIME, STATION\CALLED an
1 SORRY! YOU ARE NOW IN 48K MODE,
1 SIMPLEST o
1 SEEK N'PEEK f
1 SAVE (on\t
1 SAMPLES OF ALL 9 EDGES
1 SAM 512K+p
1 Remaining on Side A of this tapeis..."
1 Redistribute 2nd choice votes
1 Read me! displays ASCII file in d$(). By Garry Rowland (placed in public domain May '92)
1 Randomize voting distribution
1 RTCLIPAID
1 RAND USR\\"F":FREEZE (
1 QUITE GOOD
1 QUIKLIST.2
1 QUICKLIST(2).
1 Q, R & S p
1 Put in p number of characters from f$ that fit line without wordbreak
1 Print-outs are made through LPRINT. Any printer initialization required must be added yourself.
1 Print-out 32/64 columns
1 Print suffrage data
1 Print election results
1 Population can be redistributed for a new election by using this option without changing preference.
1 Plurality vote
1 Placed in the public domain April 1992
1 Perry\ -----------------\A w
1 Party list (rmd.) vote
1 Party list (avg.) vote
1 PUT.\\SELECT }
1 PRESS ANY KEY...":
1 POKE 65534,48.\Nex
1 PN),"CUT SHEET "+("Y"
1 PN)+("--------------------------------"
1 PLK 049823 C,40029 D
1 PFN print system by Garry Rowland. All following code placed in the public domain. Delete REMs not required.
1 PFN print system
1 PFN Version 1992
1 PFN LINE BREAKER
1 PCG-DTP (WORDMASTER &c.) is\
1 PAPER as\a
1 PAPER & INK CHANGES
1 P(PROMPT/\SEQUENCE).\\Ha
1 OnError
1 OUTWORKER o
1 OUTWORK .#
1 OUTVERTS.\\T
1 OUTVERTS.#s
1 OUTVERTS un
1 OUTLETTERS\
1 OUTLETTERS
1 OUTLET). Ad
1 OUTLET with the command RUN.
1 OUTLET is\
1 OUTLET EXTRA 1
1 OUTLET 78
1 OUTLET 33\(
1 OUTDEX DATA
1 OUTBOARD.#
1 OUTBOARD).\\T
1 OUTBOARD!!\I
1 OUT-\BOARD - Ed]. I al
1 O;" for OUTLET|";
1 O,O;"The QUICKLIST2 routine should
1 O,I,O8,I0,NIF,P$,L,D,P,G,E$,PN,CUTSHEET:
1 Numeric input
1 Note use of ATs for forcing spaces
1 NO.78 C O N T E N T S FEB 94
1 NO CHARS!
1 NO CHARGE
1 NFORMATION ABOUT THE PROGRAM
1 NEED HIFI OR TAPE AMP.ON OLD 48K
1 NAFFSOFT 1984
1 Move voters
1 Majority Vote
1 MASTERFILE?\\A
1 MASTERFILE...\\I
1 MASTERFILE an
1 MASTERFILE +3
1 MASTERFILE
1 M.Perry,\216 Marl
1 Lunn............16 19\ Da
1 Lunn, BOLTON\\\\\D
1 LSB>\ [2]: DEFB < " MID>\ [3]: DEFB < " MSB>\\ CC 78 : OUT\ --------------\DRIVE : DEFB 1,2,"*"\CHAN : DEFB 0 - 15 o
1 LOOKAHED.#m
1 LLIST-ALL\
1 LETTERS1.#
1 LENGTH\
1 LE4 3FF.^~
1 LAY in BEEP Mode
1 LASTPROG
1 King,\ 25 Fi
1 K=KEYBOARD
1 Juby, 18 Ro
1 JP S.FN.SBRN, e
1 J=JOYSTICK
1 Index data which must be loaded into MASTERFILE (OUTLET 75)"
1 ISCIPLE ","P
1 INVERSE\VIDEO an
1 INST'N .#rI
1 INPUT!\ ^And
1 IM???\ ---------------\I
1 I;" L A S T P A G E ":
1 I;" COUNTER ":
1 I0;(" - "+
1 I,O;"
1 I+I,f;" ";
1 HOW MANY SETS? [1-8, U=UDGS A-U
1 HEX and\I
1 Get voting preference
1 Get second preference
1 Get length of f$ in p
1 GRAPHIX.C
1 GRAPHIX......
1 GRAPHIX. If\
1 GRAPHIX info.
1 GRAPHIX can be used to create oredit fonts for DUBPIN(OUTLET 77)"
1 GRAPHIX and\t
1 GRAPHIX
1 GRAFINFO.#
1 GET THE LISTING!
1 GEOFF WINKLESS... I
1 Full instructions are in the text file DLAN INFO in this issue.
1 For the STV model constituencies A-F are merged with G-L to form six larger two seat districts. The support for each candidate/party is split in two by the two opposition candidates/parties. Support for each opposition candidate/party is given as a percentage of the support for the first choice. This doesn't need to add-up to 100% as the missing votes can be taken as votes for imaginary candidates, either allied to the main party or "no chance" independents. The values are initially set at 50% for each of the "opposing" parties.
1 F_ill: Note 'ruled page' effect caused by the _ character after the F. Left in as example of unexpected error.
1 FRACTS2
1 FRACTIONS(2).
1 FOR\A=S TO S+VAL 27 al
1 FORMERLY\AS SOLD BY TEACHERS PET SOFTWARE\an
1 FORMAT. As\
1 FLEXIPAGE
1 FLEXIBASE SOFTWARE, 20 T
1 FF\DEVICE2 : DEFB "D" o
1 F _ill and
1 F (FREEZE)
1 Eliminate weakest candidate
1 Election results
1 EXPANDING
1 ENTER TO BOOT
1 EDS:RON & BRIAN CAVERS,CHEZRON
1 EDIT'L .#
1 EDGE CHANGES...
1 E4_edge the screen
1 E3 edge changes
1 E$;"@";E$;"8";E$;"O";E$;"l";
1 Display data for selected constituency
1 DSTREAM)\ ^T
1 DRIVECHAT....
1 DRIVCHAT.D
1 DLANDEMO
1 DLAN.C
1 DLAN.........
1 DLAN info....
1 DEVICE = "P"\ DEVICE : DEFB "D" o
1 DEVICE = "P", PROG\
1 DEVICE "D" t
1 DELETE RESETS!
1 Count number of seats
1 Congrats
1 Cls & title
1 Clear bottom window
1 Candidates must poll more than any other single candidate.
1 Candidates must poll a quota of 50% of the votes or more than the combined votes for other candidates. If no candidate wins a seat, the weakest candidate is eliminated and their ballots distributed to the voter's second choice. This is repeated until one candidate meets the quota.
1 Candidates must meet a quota in multi-member districts. Voters place candidates according to their preference. Ballots in excess of the quota have the voters second preference alloted to the "runner-up" candidate's first preference votes.
1 CUT SHEET)+("N"
1 CURRAH SPEECH & SOUND GENERATOR\AND ZX SPECTRUM 6-PACK ON TAPE.\`17 THE LOT inc. pp.
1 CRUNCHER.....
1 CRUNCHER
1 CPC 6128, CTM644\
1 COUNTER......
1 COUNTER
1 CONTENTS Q
1 CLIP COMPOSER (
1 CATLOADER.\Onl
1 CALLED BY a
1 C5_Colour and
1 C3;ADS;T2;=
1 C17;F;C77;F;C17;F;\\T
1 C, D, E an
1 C J Ingram 1984
1 By Francis Miles
1 But the title effect is done
1 Both STV and the Majority systems use the second choice vote. STV puts more emphasis on individual candidates than parties. There are usually three to five seats according to the size of the constituency. A three/five seat constituency causes problems in a three party model where the candidates are only present implicitly. I've only worked from simple formal descriptions of political systems without any practical knowledge of them, so I hope the following compromise works.
1 Blank line follows...
1 BYE FOR NOW!
1 BUT FIRST WE'LL CLEAR
1 BUG FIX
1 BRIGHT?\Ra
1 BG SERVICES, 64R
1 BG SERVICES (
1 BEVERLY......
1 BEV.C >3
1 BEV U
1 BBC BASIC -
1 BASIC\REM i
1 B888?8888@@
1 B1 border colours
1 B.G. SERVICES, 64 R
1 B.G. SERVICES }
1 B G SERVICES
1 Award remainder seats
1 Any key to return to Menu.
1 Andy......
1 An accurate STV election is more complex to model. One of the reasons is because systems using a second choice require statistics indicating likely second choice. However, second candidates sometimes recommend a second preference. So in reality the second preference would not go to an opposition candidate, but to a candidate with a similar manifesto.
1 Also note that LIST has to be
1 Allocate STV seat
1 All the same it is an interesting exercise to play around with this simulation. You'll need to display or print-out the results of several elections using the same parameters, but with different distributions. Then compare another run with new parameters.
1 AlchNews;
1 After experimenting, return to
1 Adjust distribution
1 AVE CHARS AND UDGS
1 AS THE PROGRAM WILL NOT
1 ARTICLES WANTED:Vi
1 ART STUDIO in
1 ARROW UDGS
1 ARROW ARE e
1 ANYWHERE.\ ^No
1 ANY KEY...":
1 ANIMATOR.....
1 ANIM
1 AND 12 FONTS WILL FOLLOW
1 AME COST AS OUTLET FROM CHEZRON
1 AGE Nos. "+("Y"
1 AF)\ DEFW <st
1 ABF, AFB or\AF;AB;\\DLAN
1 AB1 7UA (0224 318791\af
1 A(E),B(E);
1 A SECOND TIME
1 @```|FFFFFF
1 @```|FFFFF<
1 @```bdxXLFB
1 ? (Y/N)"\t
1 >```|``````
1 >```|`````>
1 >\\16 DATA : DEFS 9 BYTES\
1 >\ ^ CC 77 : POINT\ ---------------\DRIVE : DEFB 1,2,"*"
1 >\ o
1 >= (E LINE)-(PROG)-1\\ <
1 ><<\\\&'##!q
1 > or\ "*"
1 =FIRST SOME BORDER CHANGES
1 = U, D, L, R
1 = #1B00\ ADDRESS = #4000\\\ DATA[1] : DEFB #3\ [6] : DEFB #FF\ [7] : DEFB #FF\ [8] : DEFB #FF\ [9] : DEFB #FF\\ ^\ (4) CODE\\ DATA[1] :DEFB #3\ [6] :DEFB #FF\ [7] :DEFB #FF\ [8] :DEFB #FF o
1 <~fnnvvf~<
1 <~fff~~fff
1 <~ff<~ff~<
1 <~f`|~ff~<
1 <~f`nnff~<
1 <~f````f~<
1 <ff``nnbbb<
1 <bffjjrrbb<
1 <bbbbbbbbj<
1 <bbbbbbbbb<
1 <bbb<p<FF<
1 <No. of\
1 <FFFF|`````
1 <FFFFF~FFFF
1 <FFFFF|```
1 <FF@@@@@FF<
1 <<x@@@DDDFFx
1 <<<<????<<<<
1 <<<<<<<<<<
1 <" " MSB>\\\Nor
1 < " " - MID>\ [3] : DEFB FF < " " - MSB>\I
1 ;RENAME al
1 ;"|CORRECT? (Y/N)|";
1 ;"| Suffrage? |":
1 ;"you will have to practise."
1 ;"TRY AGAIN"
1 ;"THAT'S ALL ON THIS TAPE!":
1 ;"SORRY YOU FELL IN THE ";
1 ;"Repeat Test ";vi'" 2";
1 ;"Plurality";
1 ;"MOVING PICTURES PRODUCED BY RAPIDLY SWAPPING SCREENS":
1 ;"Back to Main Menu"
1 ;"ARE THEY UDGS? (Y/N) ";
1 ;"9 3 9 3 9
1 ;"9 9 3 9 9 3 9 9"
1 ;"8 4 8 2 8 4 8
1 ;"8 4 8 2 8 4 8"
1 ;"6 3 6 2 6 3 6
1 ;"6 3 2 3 6"
1 ;"4 2 4
1 ;"4 2 4";
1 ;"1 1 3 1 5 3 7";
1 ;"1 1 1 2 5";
1 ;"1 1 3";
1 ;" ";
1 ;" ":
1 ; "WHICH DRIVE? ";("(T=TAPE)"
1 :`63.50.Joys
1 :`5.75.Cur
1 :\\POKE 23354,62: POKE 23355,16:\POKE 23399,20\\I
1 :\\150 REM =;=AT AT AT TEXT MESSAGE\\(
1 :WINDOW. x
1 :USE SUBROUTINE.x=a-z,A-Z\ (ARROW=sym
1 :TYPE FONT. n=1-9 o
1 :SUBROUTINE LABEL.x=a-z, A-Z\ ^ARROW
1 :PRINT onsc
1 :EDGEPAT'N/SHRINKWINDOW.n=1-9\\F
1 :-\\LD IX,(DSTREAM):RST 8:DEFB CC No\\ ^ "DSTREAM" FIELDS\ ----------------\\ 1 DRIVE : DEFB <DRIVE NO>\\ 2 PROGN : DEFB <PROG NO> /\ <STREAM NO>\\ 3 CHAN : DEFB <CHANNEL NO>\\ 4 DEVICE : DEFB <"D" o
1 :-\(13) CREATE ]
1 :-\ DRIVE : DEFB 1,2,"*"\[PROG N
1 : `10 inc. pp.\P
1 : DEFB 1 - 80 ] T
1 : 081 500 0272
1 : 0764 697644 (6pm+)\\\D
1 9000 to move the code to 50000.";#
1 8<<..''##!
1 888?9888<<x
1 888?8888<<x
1 80000000000
1 7\OUTCLASSES(
1 7OUTCLASSES(
1 6pm........P
1 6\\\ l
1 660|0|000~
1 66.\ B
1 65533=99)"
1 6.Tel:041 941 2348 or\w
1 6. SAVE PROGRAM - Saves the current simulation/program.
1 59200
1 55555 or...
1 50% of district vote
1 5.\NL-8309.ZX. Tol
1 5. PRINT DATA - Prints out the parameters for each seat A-L and the results from each of the voting systems along with details of vote wasted and effective suffrage. Note that "effective suffrage" indicates representation obtained by voting.
1 5. PARTY LIST greatest remainder (eg. Italy)
1 48K only! ^\\ SPREADSHEET\ -----------\\F
1 48K MODE ONLY
1 42)\\DATA[1] :
1 42 (42="*"\
1 4. PARTY LIST largest average (eg.Belgium)
1 4. ELECTION - Calculates an election result for the five different voting systems. The same voting parameters, set-up with the other options, are used for each voting system. Change the parameters to see how different voting systems respond to change. A simple random POLL of voters intentions is also presented. More comprehensive details are available using option five.
1 4-26,OUTLET 50-615 FREDS,
1 4, 5,\7,etc.T
1 4*Bit sample on the AY soundchipThe quality is still impressive (for the Spectrum) in 48k mode
1 3= 2 seats +1
1 3456789:;<R<=F<<=/,
1 30# adjust program speed
1 3.5" +D/Dis
1 3.01.\ ^I
1 3. SINGLE TRANSFERABLE VOTE (eg. Republic of Ireland)
1 3. MOVE VOTERS - Moves votes to a different constituency/seat. Of course this only has any effect when using the Plurality, Majority or STV system.
1 29\ DK-7120 Vej
1 2916, <end>= 34916)\\\4: T
1 255\[NAME2 : DEFS -10-]\ (TOTAL 48)\ ^ CC 65 : ERASE\ -------------\DRIVE\DEVICE : DEFB "D" o
1 23SU_23 upscrolls
1 23638-5553":
1 23638-2878":
1 23638-180":
1 23638-152":
1 23638-0528":
1 23638-0149":
1 23638-0089":
1 23638-0042":
1 23638-0040":
1 23638-0028":
1 23638-0020":
1 23638+577":
1 2.Press a key and
1 2. SECOND PREFERENCE - Sets second choice for each voter. Votes are split as % for each of the opposing parties.
1 2. MAJORITY VOTE (eg. Australia)
1 1|1t1ljig./Q/0C0163
1 1_T" OUT\ 20 FOR x=32000
1 1985 \Ref: 333.38376.1
1 16K `15. 48K `23. 48+ `28128K b
1 128K MODE.
1 128K BASIC
1 128 or\Tas
1 121-01
1 11\\NAME :DEFS --10--\\DATA[2] :DEFB <
1 10# change program speed
1 1. PLURALITY VOTE (eg. Britain)
1 1-5:`9.50. Forth, P
1 1 in\GRAPHIX, }
1 1 2 1 4 5 2 7 8";
1 1 1 3 2 1 3 7 4 9";
1 09B [OUTLET\75] I }n
1 0989-62715
1 081 807 2462
1 081 397 0763\a
1 06 ->\ ;23:
1 0532 683618)
1 0425 273225
1 0273 844530
1 0257 278464
1 0 to stop.
1 0 -> 9 on\ ;in
1 /RTTY/SSTV p
1 .|ck1-0a13h;8
1 .\\\ THREE-BYTE TABLES\\Mo
1 .\\DRIVE : DEFB 1,2,"*"\PROGN : DEFB "IN","OUT", "RND"\ (#BF, #DF, #A5)\CHAN : DEFB 0 - 15\NAME : DEFS --10-- o
1 .\\ CC 82 : MOVE STREAMS\ ---------------------\DRIVE1 : DEFB 1,2,"*";
1 .\\ Da
1 .\\ B
1 .\COMMANDS o
1 .\ ^\2. Al
1 .\ ^\ TWO-BYTE TABLES\ ---------------\\A
1 .\ ^ PROGRAMMING TIPS\W
1 .\ ^ ONE-BYTE TABLES\ ---------------\\W
1 .\ Bil
1 .\ B
1 .THESE KEYWORDS\CAN ONLY BE ENTERED IN 48K MODE\alt
1 ..\\DATA[1] : DEFB #FF o
1 ...\\\ P
1 ...\\UDG g
1 ...\\CLEAR 50391:LOAD "DLAN.C" CODE:\\En
1 ...\\ AB i
1 ...\\ By
1 ...\\ RANDOMIZE USR 63149\\ ...
1 ...\ ^ t.in
1 ..........0
1 ................................
1 ... ^ O U T W O R K !\\\\ DISC LABELLER\ -------------\\Re
1 ., PCX, WMF, an
1 . Fulldetails are in 'GRAPHIX INFO' inthis issue of OUTLET."
1 -apply),\2. Y
1 -\DOS. I p
1 -Left\\<An
1 -0a11h;6 p
1 -------------
1 -----------
1 - PREVIOUSLY IN OUTLET,
1 - LSB>\ [2] : DEFB #f
1 - LSB>\ [9] :DEFB #FF o
1 - LSB>\ [9] : DEFB FF < " " " MSB>\\\\No
1 ,hl\ j
1 ,b0;a$;"."
1 ,b0;"shaded? Type the number of ";
1 ,\SP, as....\ (SP - 16384)\ ------------\ 510\eg,i
1 ,\L41 4BY. (Tel: 051 650 0500).\\ROUTE 48 (OUTLET 31) s
1 ,\ REM 3=HELLO;4SR;2P\ ...p
1 ,\ Birs
1 ,VALUE:::::
1 ,A-Z,0-9, ` ? only\un
1 , etc. I\}
1 , THIS CLEARS THE SCREEN THEN PRESS
1 , G81 2PG
1 , E1;E2;E3
1 , CP/M & Pas}l. So
1 , '=HELLO' (t
1 +D'ers!: `3
1 +3 users should press RESET to
1 +3 USERS WILL NEED TO RESET AND RELOAD OUTLET.
1 +3 CP/M+Mal
1 +2 in 48k mode
1 +2 128k mode
1 +123v34Y45@5$
1 *TITLE PAGE
1 *DEMO START
1 )\\PROG :
1 )=i+i+(i=2
1 )="YELLOW":
1 );"% Yellow party"''"DISTRIBUTION OF VOTES & 2ND CHOICE (%)"
1 );"% Red party"'p(
1 );"% ";p$(
1 );" voting)"
1 ); OUTDEX (Out
1 ); OUTDEX (OUTLET in
1 )*(pgs<12)+4*(pgs>11)":
1 ));", ";c(c,p,
1 (v(c,p)/n)
1 (t(p)/d(p)+
1 (t(d(p))/n);"%";(","
1 (t(d(p))/(nc-c)):
1 (t(d(p))/(nc-c))
1 (pg+dp+dp)+" -"
1 (pg+dp)+" -"
1 (p(d(p))-i)
1 (in} 48K 'Soft
1 (d*i*p(p)/
1 (and you get a pretty Border)."
1 (Using PFN print system by Garry Rowland)
1 (Only 3-5 are proportional voting systems)
1 (OUTLET 77),\t
1 (OUTLET 76)
1 (CHR$ 32)
1 (CAPS A-U FROM 1ST SET), 0=QUIT]
1 (:)\\UDG U i
1 (1) PCG DTP
1 (" - "+
1 'WA' and\'Wa' a
1 'LIST' can be used alone, or youcan follow it by any valid line number, variable, or calculated
1 'I' and\'W' oc
1 'HELLO'. An
1 '0': 0ah/10
1 '''''''" INSERT
1 '"SUFFRAGE EXERCISED BY ";n;" VOTERS"'"First preference votes:"'p(
1 '"EFFECTIVE SUFFRAGE"'
1 '" STV VOTING SYSTEM":
1 '" PLURALITY VOTING SYSTEM":
1 '" PARTY LIST (greatest remainder) VOTING SYSTEM":
1 '" PARTY LIST (average) VOTING SYSTEM":
1 '" MAJORITY VOTING SYSTEM":
1 '" Constituency ";
1 '"
1 ' prompt, by pressing ENTER."
1 #iv;"What fraction of the shape is";
1 #iv''" 1 Run ""Fractions 2"" again"''" 2 Exit to OUTLET";#b1;
1 #iv'" ^ Choose Test 1 to 6,
1 #iv'" The pupils choose which of the exercises they wish to"'"try by typing the number next to it."''" They will be given a test of ten questions to start with,"'"but if they do not score at least six they will have to"'"practise before trying the next test."
1 #iv'" During the practice sessions the pupils have to keep"'"trying until the answer is right; the correct answer flashes"'"to help them."''" Press <BREAK> at any time to return to the main menu."''" See also ""Fractions 1""
1 #b1;"Press <ENTER> to return to Menu":
1 # ff\ ^ (3) $ ARRAY & (2) NUM ARRAY\\DATA[1] : DEFB #2 (st
1 # |000000
1 "h";"by Garry Rowland (PUBLIC DOMAIN)"
1 "d".\ ^CHEQ
1 "d"-n;"% of voters."
1 "d"*c(c,p,a)
1 "d"*c(c+s,p,a):
1 "c")) ;" ";
1 "brrzZ^NNFD
1 "`";"STV";
1 "X";"VOTING SYSTEMS";
1 "WELCOME TO ALL!!
1 "U";"ELECTION RESULTS:|":
1 "The code will then remain activeuntil you turn it off again by a second call to the code at itsload address."
1 "THINGI"\ And
1 "ROMAN.C" in\t
1 "P"\[TYPE : DEFB 1-11,13] T
1 "P">\\ 5 TYPE : DEFB <FILETYPE>\\ 6 NAME : DEFS --10 chrs--\ <
1 "P";"VOTING PREFERENCE"'
1 "P";"SECOND PREFERENCE"'
1 "P";"RETURN to OUTLET";
1 "P";"PRINT DATA"'
1 "P";"MOVE VOTERS"'
1 "P";"ELECTION"'
1 "OUTLET 78"
1 "OPUS I'FACE","K
1 "NOT"\\NAME : DEFS-10-("*"e
1 "NOT"\\ ^ CC 83 : MOVE FILES\ ---------------------\\Mo
1 "LASTPROG"
1 "Halves & Quarters","Halves, Quarters & Eighths","Thirds & Sixths","Fifths & Tenths","Thirds & Ninths","A Mixed Test","Teacher Information"
1 "GRAPHIX.C"
1 "F";"|THE RAND POLL RESULTS:";
1 "EDIT'L .#","LETTERS1.#","ANIM","OUTBOARD.#","TABLCLAS.#","UNICHAT .#","FRACTS2","CRUNCHER","LOOKAHED.#","OUTWORK .#","OUTVERTS.#","GRAFINFO.#","GRAPHIX","COUNTER","BEV","QUIKLIST.2","SUFFINFO","SUFFRAGE","INST'N .#","DLANDEMO","OUTDEX","ADDENDER.#","BOB","AUTO*",
1 "A:SUFFRAGE"
1 "A:SUFFINFO"
1 "A:QUIKLIST.2"
1 "A:GRAPHIX"
1 "A:FRACTS2"
1 "A:DLANDEMO"
1 "A:CRUNCHER"
1 "A:COUNTER"
1 "A:CONTENTS"
1 "@"+nc);")";
1 "@"+nc);" to select constituency"
1 "@");" - Population ";r(c);" (";v(c,
1 "<";"Press key ";
1 "<";"Key A-";
1 ";"pto..";
1 ";"VOTES%":
1 ";"TURN-OUT: ";n:
1 ";"POPULATION: ";r(c);
1 ";"CURSOR UP GETS PREVIOUS PAGE"'
1 ";"CURSOR DOWN GETS NEXT PAGE"'
1 ";"(remainder)"
1 ";"(average)";
1 "97";"|GOODBYE|"''" I hope this program has helped"'"you to learn about fractions."
1 "94";"Not good,"'
1 "9";"PRESS ANY KEY":
1 "9"+(" - "+
1 "9"+(" - "+
1 "89";"OUT OF 10."''
1 "80";"|S U F F R A G E|"''
1 "80";"voting systems."
1 "8";"various voting systems."''
1 "8";"and the program following in this issue by"'
1 "8";"SUFFRAGE is the right to vote in an election,"'
1 "8";"Run this info program now to find out more."
1 "8";"Garry Rowland allows you to ""play"" with"'
1 "76";"YOU SCORED ";score'
1 "7";"SEATS";
1 "7";"PRESS SPACE TO RETURN TO MENU";
1 "7",f;" "
1 "7");#iv;" ";q;
1 "68";"By Garry Rowland"'''
1 "65490",I:
1 "6";t(p);:
1 "6";"| R E A D - M E ";
1 "5";"Key 1-6 selects menu options"'
1 "5";" to save"'
1 "5";" to read"'
1 "5";" for print-out"'
1 "5",f;" ";
1 "42";"A comparison of different"'
1 "4";"Voting Preference:"
1 "4";"Printing suffrage data":
1 "4";"Moving voters from ";c$;" to ";
1 "4";"Move voters from constituency ";c$:
1 "4";"MOVE TO WHICH CONSTITUENCY? (A-";
1 "4";"How many of ";v(c,p);" ";p$(p,
1 "4";"Constituency ";c$
1 "4";"% to vote for ";p$(p,
1 "4";" RANDOMIZING POPULATION DISTRIBUTION ":
1 "4";" ";v(c,p);" ";
1 "4",mus,mv-
1 "4",f;" ";
1 "333";" R E A D - M E";
1 "32965",P:
1 "32933",P:
1 "23658",O:
1 "23658",O8:
1 "23608","",
1 "23606",O:
1 "20";c(c,p,a);"% ";p$(d);:
1 "20";"SCORE ";z:
1 "20";"SCORE ";Z
1 "2";"THE";#
1 "2";"Majority";
1 "2",mus,mv-
1 "2")="BLUE":
1 "2");"%";:
1 "2");"% Blue party"'p(
1 "2");"% ";p$(
1 "2"));c(c,p,
1 "2")));")"
1 "180";(" "+
1 "180";"Try again"
1 "175",col;f$:
1 "168/768":
1 "16",O;"Eat up the numbers with your
1 "15";E$;"S0";E$;"e0";
1 "15";"|S U F F R A G E I N F O R M A T I O N|"
1 "14";"|F R A C T I O N S - T W O|"
1 "112";"O";
1 "11",x;t(p)
1 "11",O;#O;
1 "/"\
1 ".";"|E L E C T I O N N I G H T|":
1 ",O;"Here is Chris Ingram's sequel to"'"his Fractions-One program, which appeared in OUTLET Issue No.68."''"It is a further series of tests"'"designed for youngsters, which"'"progresses from the fairly easy"'"to the moderately difficult."
1 "," ON THIS CASSETTE VERSION OF OUTLET, THE ABOVE ITEMS ARE LINKED AND WILL LOAD IN SEQUENCE AUTOMATICALLY AT THE PRESS OF A KEY. REMEMBER TO STOP THE TAPE WHEN EACH ITEM HAS LOADED! PROGRAMS MAY ALSO BE LOADED SINGLY USING LOAD """" (TEXT FILES ARE PRECEDED BY A ""TEXTLOADER"" WHICH MUST LOAD FIRST) PRESS ANY KEY TO LOAD THE FIRST ITEM... "
1 "*"\\ (
1 "*"\DEVICE1 : DEFB "D"\NAME1 : DEFS --10-- <
1 "$";"|Press key 3 for 32 column print-out"'
1 "$";"Press key 6 for 64 column print-out|"
1 "$";"KEY X RETURNS TO THIS MENU"
1 " Suffrage effective for ";
1 " ";v(c,p);" vote for ";p$(p,
1 " ";t(d(p));" seats (";i;"%) held by ";p$(d(p),
1 " ";n;"% of vote wasted"
1 " " MSB>\\\ (3) $ ARRAY - DATA[1]: DEFB #2\\\ (2) NUM ARRAY- DATA[1]: DEFB #1\\\NOTE; t
1 !\\1). A Find-and-Rep
1 ! Eek! +3 an
1 z\ c
1 which tests"'"halves, quarters and eighths in two ways: ""Shaded Square"" and ""Fill The Jar""."'"
1 us...02 -\ Bil
1 problem in that it could clash with the
1 or...\b)
1 old\'*z;' w
1 now to activate the
1 mind a clash-free version has
1 it now using...
1 in OUTLET Issue 74 (October 93)"
1 hl\ ^ l
1 hl\ j
1 hl,bc\ j
1 entered as a direct command,
1 command, you will get upto one
1 c\ c
1 been written.
1 b\
1 and...\\'{' i
1 and not from a Basic line.[Ed.]
1 an\ADDITIONAL a
1 all)\\\\\\ CC 81 : RENAME\ ----------------\\DRIVE1 : DEFB 1,2,"*"\\NAME1 : DEFS --10--\\NAME2 : DEFS --10--\\ (TOTAL 48 BYTES)\ ^\\ CC 75 : SAVE\ --------------\\Al
1 all"\\DRIVE2 : DEFB 1,2,"*" o
1 a\
1 \M. Perry, 216 Marl
1 ZX81. ^Fi
1 ZX81 ULA an
1 USR\}ll. A SEPARATE DLAN
1 Tony\Catt
1 This is an improved version of
1 The original suffered from a
1 Six).\\\I
1 STAR LC10 p
1 SPACE. Now\
1 SOLI/LCSI & 2\exp
1 SAMPLED-SOUND MUSIC By QJETA
1 Reply\\\ Ho
1 Remember: 2=1, 4=1, 6=3 & 8=1";
1 Remember: 2=1, 3=1, 4=2 & 6=1";
1 Remember: 2=1 4";
1 Remember: 3=1, 6=2 & 9";
1 RUN,\CONTENTS, NEXT p
1 RGB, TTL,\
1 REPETITION FACTOR.\\Fo
1 RANDOMIZE\USR
1 RANDOMISE USR\
1 QUICKLIST, that first appeared
1 PRESS ANY KEY
1 P.S. WATCH OUT
1 Oest\ Den
1 OUTLETTER) w
1 OUTLET ad
1 OUTLET PD
1 ONE NEEDS
1 No. Re
1 NOTE THAT
1 LSB>\ [9] : DEFB FF or< " " MSB\ ^ CC 76 : OPEN\ --------------\I
1 LSB>\ [9] : DEFB FF o
1 LOAD ""\CODE.\\\3: En
1 JP TBROUT o
1 INITIALISING
1 IGNORED AND MUST\BE AVOIDED - EXCEPT ARROWS CAN\FOLLOW OTHER ARROWS an
1 I (ink), P(
1 GOSUB is\POKED
1 FST-06\an
1 FREEWARE
1 FREE).\Sen
1 FIRST\REM
1 FASTEST\an
1 EF\ CD GH\\ ...o
1 DSTREAM\(U
1 DSTREAMS\
1 DLAN DEMO p
1 DEFAULT i
1 DATA [1..9] i
1 COPYRIGHT\sym
1 CONGRATULATIONS
1 COMMAND CODES i
1 CLIPPER 2
1 CAT.\\\Re
1 CAPITAL A - Z\OF CHARACTER SET 1. T
1 CAMPION\Sa
1 BASIC.\\[T
1 As it stands it will count up to 9999, but if you wish to go over this,just add extra zeros to 'a$'."
1 AlchNews. D
1 AND TEST
1 >>> 2=1, 4=2, 5=1, 6=3 & 8=4";
1 <end>\ 30 PRINT #4;CHR$ PEEK x;\ 40 NEXT x\ 50 CLOSE #*4\\T
1 :-\\DRIVE :DEFB 1,2,"*"\\TYPE :DEFB 1,2,3,4,7,8 o
1 7; ;a=0\
1 7 ;J=0\
1 52 'GOSUBs'. It'
1 3:`2.50. FORMAT Vols.\1-5:`28.50. Sinc
1 32000. ^2: Re
1 31 at\RH
1 2x26=\52
1 2; ;Z=0\ j
1 2 & 3\ ^ (1) BASIC\\ DATA[1] : DEFB #0\ [6] : DEFB <
1 2 ;L=0\ j
1 2 ;C=0\ j
1 1983 THRELFALL and HODGSON Compiled OK Program Length = bytes To run enter RAND USR "
1 128K?\\Ca
1 128: `15.Soft
1 10) GOSUB t
1 0243 552753 af
1 +D.\\ Ch
1 +D OPENTYPE\
1 +2, +2a\an
1 (YS, Sinc
1 ( ' !"#$%&'()*+
1 'Z' OR 'a'
1 'JOTTER'
1 'GO SUB' (
1 'A'...\\B= B
1 'A' ;A=0\
1 '255#'.\ ^No
1 & MFBASIC
1 "NAME" "NAME*" "*" or\"?
1 "GERT".\\2). A LIST-ALL o
1 "0").\\Wit
1 up\ ... etc, en
1 that provides a neat counter
1 of\
1 nc,chr\ ;in
1 nc,2684h;
1 hl,t.inp\ j
1 hl,inv\
1 hl,2596h;|
1 hl,0a11h-6;t
1 e,(hl)\ ad
1 display."
1 different INKs. Chris.
1 c\
1 c,a\ l
1 c,(hl)\ ad
1 by printing blanks
1 bc,300ah\ l
1 b\ j
1 b,a\ ... etc\\T
1 b,0\ l
1 a,c\ j
1 a,b\ j
1 a,(hl)\ an
1 S.M.GOODMAN 1993"
1 May need to press keys twice
1 Here's a short BASIC utility
1 BREAK IN TO STUDY THE ROUTINE WHICH STARTS AT LINE 1000....
1 BG SERVICES, 64 R
1 9\ d
1 8\ d
1 7\ d
1 5\ d
1 5 2 5
1 4\ d
1 32\ j
1 11\ d
1 10\ d
1 (hl)\\an
1 (hl)\ ^ 2596 d
1 'SCREEN$',2568h-\ s.sc
1 'RND',2560h-s.rnd\ d
1 'POINT',256ch-s.
1 'PI',2562h-s.
1 'INKEY$',2564h-\ s.in
1 'FN',259eh-s.fn\ d
1 'BIN',2566h-s.
1 'ATTR',256ah-s.attr\ d
1 '.',259ah-s.
1 '+',259ch-s.u.p
1 '(',2598h-s.b
1 '"',2596h-s.
1 addenders
1 \\ GRAPHIX\ -------\T
1 \ F E B R U A R Y , 1 9 9 4\\W
1 \ DLAN, T
1 \ JUMP TABLES by\ F
1 WANTED - In
1 Using: ~SOUNDTRACKER II~
1 Select by Initial letter.
1 LOADING
1 "'" ";#O;
1 by MALCOLM GOODMAN"
1 \OUTVERTS a
1 "'"
1 `4.50OCP +80 VAT Ma
1 \\ UNIDOS\ THE COMMAND CODES\ b
1 ZX COMPILER V2.0
1 `4.50S
1 \"OUTWORK"i
1 ANOTHER GO (Y/N)
1 Is
1 `1.50C64 ArtS
1 Is
1 FUEL ";J;"
1 \Tit
1 Press any key":
1 Is
1 ^
1 ...and reload to anyaddress as needed with e.g.,...
1 ANY KEY
1 From SKUSOFT
1
1